home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2007 March
/
PCWorld_2007-03_cd.bin
/
domacnost a kancelar
/
scribus
/
scribus-1.3.3.7-win32-install.exe
/
tcl
/
tix8.1
/
pref
/
WmDefault.fs
< prev
next >
Wrap
Text File
|
2001-11-03
|
782b
|
24 lines
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: WmDefault.fs,v 1.1.2.1 2001/11/03 05:20:16 idiscovery Exp $
#
proc tixSetFontset {} {
global tixOption
package require wm_default
if {![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set tixOption(font) $::wm_default::system_font
set tixOption(bold_font) [concat $::wm_default::system_font bold]
set tixOption(menu_font) $::wm_default::menu_font
set tixOption(italic_font) [concat $::wm_default::system_font italic]
set tixOption(fixed_font) $::wm_default::fixed_font
set tixOption(text_font) $::wm_default::text_font
set tixOption(border1) $::wm_default::borderwidth
}